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RTITLE ‘VAX=11 FDL Utilities’ 

! Version: *v04-000' 

i eeeeeneeeereererereererereeeereeeeereneteeeeeeteeeeeteetereteeerereeeeteetes 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED 


® 
® 
® 
® 
® 
is THIS SOFTWARE. IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS SOFTWARE OR "ANY. OTHER « 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. ‘ 
® 
it THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE + 
ie AND SHOULD BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORATION. . 
® 
® 
® 
® 
* 
® 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


See eRe OKRA HERAEAEHAA RATHER RAREREAARERAEARERERREARe Kee eee ee eeKeeetereeee 


Add invdatim error cain 
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'e4 
' 
! Facility: VAX=11 RMS FDL Utilities 
! Enviroment: VAX/VMS Operating System 
|! Abstract: FDL Utilities Require file 
= 
: Author: Keith B Thompson Created: Somet ime-1981 
; Modified By: 
: v03-003 KFHOOO02 Ken Henderson 2 Dec 1982 
Added GENTAB macro 
: v03-002 KFHOO01 Ken Henderson 19 Oct 1982 
: Added INVBLK error code 
v03-001 «xBT0031 Keith Thompson 31-Mar-1982 
! 
' 


‘eeee 


on 
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GENTAB ( SEC, FAO, FULL, DTYPE, WHICH, BTYPE, BOFF ) = 


FOLUTIL.REQ;1 
MACRO 
ZNAME ( ‘FDLSC_',SEC ) 
ZNAME ( ‘FDLSC_',SEC ) 
ZNAME ( 'FDLS$C_‘,SEC 
ZNAME ( EDL SCA, SEC 
ZNAME ( ‘FDLSC_*,SFC 
ZNAME ( ‘FDLSC_',SEC 
C ZNAME ( ‘FOLSC_*,SEC 
DESC_BLK = 


BLOCK C 8,BYTE 
DESCRIPTOR ( oe G ) 


, FDL$V_SEC_FAO ) = UPLIT BYTE ( ZASCIC FAO ), 

» FOL$V-FULC_ONLY FUL 
), FOLSV- DATA” TYPE ) = XNAME ( TFDLSC_* DTYPE ), 
); FDLSVZWHICA_PRI_} = ZNAME ( 'FDLSC7' WHICH ). 
), FDLSVIBLK_TYPE )] = ZNAME ( ‘FDOLSC_*,BTYPE ), 
), FDLSV~SEC~BOFF 

$BYTEOFFSET~( NAME ( BIYPE,'$',BOFF ) ), 

), FDOL$V_SEC_POS } = 

$BITPOSITION ( XNAME ( BTYPE,'$S',BOFF ) ) %, 


UPLIT ( XCHARCOUNT (STRING) , UPLIT BYTE(STRING) )%, 


ERRCHK ( SERVICE,ERROR 
BEGIN 
‘me STATU 


) =z 


( NOT (¢ UStatus = SERVICE ) ) 


“BEGIN 
SIGNAL ( ERROR 


ZIF ZLENGTH GTR 4 ‘ere » SREMAINING 


2m): 


RETURN .STATUS 


ENDZ, 


RET_ON_ERROR ( SERVICE ) = 


boc STATUS 


( NOT (status = SERVICE ) ) 


SET 
“CLEAR 
; Linkages 


' 
LINKAGE 
JSB_LINK = JSB; 


: Global Literals 
LITERAL 


. Buffer Sizes 


KEYNAME_LENGTH = 32, 


S sahinate «STATUS 


re 
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MAXRSS, 


C_MAXRSS, 


C 


— 
Ld 
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> 
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tee 
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<" 


: FOL Routines signaling codes 


MACRO 
DEF INE_ERROR_CODES = 


EXTERNAL LITERAL 


DL$_FACILITY, 
DLS"FAO_MAX, 


2gz 


ADERR, 


“Y=sDwDeoO 
a ie 


“UNPRIKW. | 
“UNSECKW | 
“WARNINGS; | 
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: FOLSPARSE junk 
MACRO 


TPARSE_ARGS = 
BUILTIN AP; 
BIND TPARSE_BLOCK = AP : REF BLOCK C ,BYTE J; 2%; 


LITERAL FABSC_STR = 1; 


LITERAL 
FDOLSC_PRIBLK_SIZE = ¢: 
FDLSCSECBLK~SIZE = 3; 

FIELD | 
PRITAB_FIELDS = 

SET 
FDLSV AO = € 0,0,32,0., | 
FOL$V~ TDERT STR = f 1,0.1,6 ), 
FDLSV MA AT ACH SE Ti.lele® de 
4 se HY PRI_ FILL = 1-6 +68 2 
FDL$V~PRI~SPARE = € 1,8,8,0 }, 
FDL$V~PRI ~BOFF = € 1,16,16,0') 
TES, | 
SECTAB_FIELDS = | 
SET | 
FDL$V_SEC_FA = { 0,0,32,0.), | 
FOL$V~FULC ONLY = € 1.0-1,6 ], | 
FDLSV-FILL~ = 1.1.7.0 ’ 
FDLS$V_DATA_TYPE = ( 1,8,8 
FDL$V~WHICA PRI = 1.16.8. : 
FDL$V~BLK_TYPE = 1.34 8,0 ), 
F DL$V~SEC~BOFF 2 g. 16:0 
FDL$V~SEC~POS = € 2:16,16,0 3 | 
TES; 
| 


017 AH-BT1i3A-SE MENT CORPORATION 
| A 


ND PROPRIETARY 


VAX/VMS V4.0 ; 


